What PC? 1997 January/WPCJAN97.ISO/refwjan.dxr/00022_REFAdIdxUpdateSection .ls

Text File | 1996-11-07 | 758 b | 26 lines

on REFAdIdxUpdateSection
  global REFSpriteCastNums, REFAdVideoList, REFMasterList, REFAdIdxChosenAd, REFChoosen
  repeat with g = 30 to 33
    set REFChoosen to 0
    if rollOver(g) then
      set the castNum of sprite g to the castNum of sprite g + 1
      updateStage()
      repeat while rollOver(g)
        if the mouseDown then
          set REFAdIdxChosenAd to g - 29
          set REFChoosen to 1
          set the castNum of sprite g to the castNum of sprite g - 1
          put REFAdIdxChosenAd
          REFLeave(2)
          updateStage()
        end if
      end repeat
      if REFChoosen = 0 then
        set the castNum of sprite g to the castNum of sprite g - 1
      end if
      updateStage()
    end if
    updateStage()
  end repeat
end